home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / WARBLERS.POG < prev   
Encoding:
Text File  |  1985-11-20  |  4.8 KB  |  148 lines
  1.  
  2.     int mouseid        ;The creature id of mouse so warblers can find the mouse.
  3.     int mouserad    ;Radius of mouse.  Gets bigger every other warbler you eat.
  4.     int warblers    ;Number of warblers alive.  If it gets down to zero you win!
  5.  
  6. ;When a warbler goes offscreen it comes back on the other side.  Here are
  7. ;two functions that help implement this 'wrap around'.
  8.  
  9.     to wrapx(x)
  10.     {
  11.     if (x > 320+50)        ; off screen 50 to the right?
  12.         x = -50;        ; then move it to left of screen
  13.     if (x < -50)        ; off screen 50 to the left?
  14.         x = 320+50        ; then move it to right of screen
  15.     return(x)
  16.     }
  17.  
  18.     to wrapy(y)
  19.     {
  20.     if (y > 200+50)
  21.         y = -50
  22.     if (y < -50)
  23.         y = 200+50
  24.     return(y)
  25.     }
  26.  
  27. ;Here is the code for the warbler creature.  This is the 'brains' of the
  28. ;program.  The warblers take care of pulsating themselves, and also
  29. ;see if they are having a run-in with the mouse.
  30.  
  31.     ;The pulsating circle creature.  
  32.     creature warbler
  33.     {
  34.     int csize    ;current size
  35.     int dsz        ;rate of change of size
  36.     int cmax    ;maximum size
  37.     int cmin    ;minimum size
  38.     int color    ;color of this warbler
  39.     int md        ;used to hold distance to mouse
  40.  
  41.     ;1st time through randomly initialize some of our variables
  42.     if (Cnew)    ;Cnew is true only first time a warbler is Evolve()'d
  43.         {
  44.         cmin = Random(5)+2;    ;min radius
  45.         cmax = Random(16)+5 ;max radius
  46.         dsz = Random(3)+1    ;speed of radius change
  47.         if (Random(1))        ;randomly make it start out shrinking or growing
  48.             dsz = -dsz;
  49.         csize = (cmin + cmax )/2    ;start 1/2 way through size cycle
  50.         color = Random(4)+1            ;color random between 1 and 4
  51.         }
  52.  
  53.     ;Do stuff to figure out what size warbler is this frame
  54.     if (!(Cage&31))    ;every 32 ticks increase max radius size by 1
  55.         cmax = cmax+1
  56.     csize = csize + dsz 
  57.     if (csize > cmax || csize < cmin)    ;if hit min or max reverse delta radius
  58.         {
  59.         dsz = -dsz
  60.         }
  61.  
  62.     ;Move warbler by adding its speed to its position, and piping through
  63.     ;a 'wrap' function in case result is off-screen.
  64.     Cx = wrapx(Cx + Cdx)   ;Cx and Cdx are passed from the 'Spawn' call below.
  65.     Cy = wrapy(Cy + Cdy)
  66.  
  67.     ;Interact with the mouse creature.
  68.     if (mouseid)    ;if the mouse creature is still alive...
  69.         {
  70.         ;find distance to mouse
  71.         md = Distance(Creaturex(mouseid),Creaturey(mouseid), Cx, Cy)
  72.         ;if inside mouse radius, suicide
  73.         if (md < mouserad && csize < mouserad)
  74.             {
  75.             if (warblers&1)    ;every other warbler increment mouse radius
  76.                 mouserad = mouserad+1
  77.             Kill(cid);
  78.             warblers = warblers - 1
  79.             return;
  80.             }
  81.         ;if mouse inside our radius kill it
  82.         if (md < csize && csize > mouserad)
  83.             {
  84.             Kill(mouseid);
  85.             mouseid = 0;
  86.             }
  87.         }
  88.     Circle(Cx,Cy,csize,color)    ;draw ourselves
  89.     }
  90.  
  91.  
  92. ;The mouse creature is quite simple since it doesn't need to figure out
  93. ;whether it has hit a warbler or not.   It just calls the built in Mouse
  94. ;functions to set its current position on the screen (Cx and Cy), and
  95. ;draws a disk in color 13.
  96.  
  97.     creature mouse
  98.     {
  99.     Cx = MouseX()
  100.     Cy = MouseY()
  101.     Disk(Cx,Cy,mouserad,13)
  102.     }
  103.  
  104. ;Finally there's the 'main code' for the game:  
  105.  
  106.     loop    ;repeat forever (or until user doesn't want to play again) 
  107.         {
  108.         KillAll()    ;Kill any creatures left from last game
  109.         mouserad = 8    ;mouse starts with 8 pixel radius
  110.         mouseid = Spawn(mouse,0,0,0,0)    ;make the mouse
  111.         for warblers = 0 to 12            ;make 13 warblers
  112.             {
  113.             int ix,iy
  114.             ix = Random(6)-3 ;speed from -3 to 3
  115.             if (ix == 0)     ;don't allow 0 x speed
  116.                 ix = 1
  117.             iy = Random(6)-3
  118.             if (iy == 0)
  119.                 iy = 1
  120.             ;make a warbler at random position on screen and 
  121.             ;random speed between -3 and 3
  122.             Spawn(warbler, Random(320), Random(200), ix, iy)
  123.             }
  124.         PreSwap()                        ;Set up for double buffering
  125.  
  126.         ;here's the main game loop.  Keep going as long as there's
  127.         ;warblers alive and the mouse is alive too.
  128.         while (mouseid && warblers>0)
  129.             {
  130.             ClearScreen()    ;set screen quickly to black
  131.             Evolve()        ;let all creatures live one tick
  132.             Swap()            ;swap drawing screen and viewing screen
  133.             }
  134.  
  135.         ToText()            ;back into text mode
  136.         Prints(StrNum(warblers) + " Warblers left");
  137.         if (warblers <= 0)
  138.             {
  139.             Prints("You won!!!")
  140.             }
  141.         Prints("Play again? (y/n)")
  142.         int key        ;oops, need another variable...
  143.         key = WaitKey()
  144.         if (key == 'n' || key == 'N')
  145.             break
  146.         }
  147.  
  148.